Option Explicit
Sub O_Sample002()
    ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "Test"
@  'ThisWorkbook.VBProject.VBComponents("Sheet1").Properties("_CodeName") = "Test"
End Sub